home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
003
/
scrngraf.prg
< prev
next >
Wrap
Text File
|
1986-02-06
|
2KB
|
87 lines
** Here' a neat technique for dBase III screen
* graphics. The CHR's are from the Basic manual.
* Add and modify as your imagination expands the concept.
* Have fun!! Give $5.00 to your favorite charity.
** Enter these in memvars.
* Single line graphics.
* SL means single line
* STLC means single top left corner
* You figure out the rest
Set talk off
SL = CHR(196)
SL = SL+SL+SL+SL+SL+SL+SL+SL+SL+SL
SL = SL+SL+SL+SL+SL+SL+SL
STLC = CHR(218)
STRC = CHR(191)
SLLC = CHR(192)
SLRC = CHR(217)
SLT = CHR(195)
SRT = CHR(180)
SV = CHR(179)
* Double line graphics
DL = CHR(205)
DL = DL+DL+DL+DL+DL+DL+DL+DL+DL+DL
DL = DL+DL+DL+DL+DL+DL+DL
DTLC = CHR(201)
DTRC = CHR(187)
DLLC = CHR(200)
DLRC = CHR(188)
DLT = CHR(204)
DRT = CHR(185)
DV = CHR(186)
* Save these to a mem file
Set safety off
SAVE TO SCRNGRA
Set safety on
** Here is a skeleton screen showing how the memvars are used.
*** MENU.PRG
CLEAR
RESTORE FROM SCRNGRA
ROW=3
@ 2,5 SAY DTLC
@ 2,6 SAY DL
@ 2,76 SAY DTRC
DO WHILE ROW<10
@ ROW,5 SAY DV
@ ROW,76 SAY DV
ROW=ROW+1
ENDDO
@ ROW,5 SAY DLT
@ ROW,6 SAY DL
@ ROW,76 SAY DRT
ROW=ROW+1
DO WHILE ROW<22
@ ROW,5 SAY DV
@ ROW,76 SAY DV
ROW=ROW+1
ENDDO
@ ROW,5 SAY DLLC
@ ROW,6 SAY DL
@ ROW,76 SAY DLRC
TITLE1='Compliments of Don Ludwig'
TITLE2='Business Services Group, Inc.'
TITLE3='312-934-3584'
LEAD1=35-(LEN(TITLE1)/2)
LEAD2=35-(LEN(TITLE2)/2)
LEAD3=35-(LEN(TITLE3)/2)
@ 5,6 SAY SPACE(LEAD1)+TITLE1
@ 6,6 SAY SPACE(LEAD2)+TITLE2
@ 7,6 SAY SPACE(LEAD3)+TITLE3
@ 23,0
RETURN
* End MENU.PRG
** Enjoy.